home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Tools&Utilities / NLphoneCheck 2.0 / NLphoneCheck2.0 / FMPR v3.x / Variant ;'s / NLphoneCheck1.1N;'s (.txt) < prev    next >
FileMaker Pro Database  |  1996-04-17  |  37KB  |  208 lines
  1. HBAM2016AUG95
  2. Pro 3.0
  3.     JJL/ShareB
  4. Users
  5.     Helvetica
  6. Monaco
  7. Chicago
  8. New Century Schlbk
  9. Geneva
  10. Courier
  11. Times
  12. Zapf Chancery
  13. entury Schlbk
  14. Geneva
  15. Courier
  16. Times
  17. Zapf Chancery
  18. oa92g
  19. |fNe"
  20. \\) 1
  21. p6Lxt
  22. Y-dug
  23. HBAM3016AUG95
  24. JJLcheckData
  25. If(Left(TextToNum("0,."&TelOld)*10^6 ;2)="10"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="13"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="20"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="24"or Left(TextToNum("0,."&TelOldB
  26. )*10^6 ;2)="26"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="36"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="37"or (Left(TextToNum("0,."&TelOld)*10^6 ;2)="40" and  Left(TextToNum("0,."&TelOld)*10^6 ;3) 
  27.  "406")or LeftC
  28. (TextToNum("0,."&TelOld)*10^6 ;2)="50"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="55"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="70"or Left(TextToNum("0,."&TelOld)*10^6 ;2) ="80"or Left(TextToNum("0,."&TelOld)*10^6D
  29.  ;2)="85"or Left(TextToNum("0,."&TelOld)*10^6 ;2) ="90"; Left(TextToNum("0,."&TelOld)*10^6 ;3); If(Left(TextToNum("0,."&TelOld)*10^6 ;2)="15"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="23"or Left(TextToNum("0,."&
  30. JJLcheckData
  31. TelOld)*10^6 ;2)="30"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="33"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="35"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="38"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="43"or Left(TF
  32. extToNum("0,."&TelOld)*10^6 ;2)="45"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="46"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="53"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="58"or Left(TextToNum("0,."&TelOld)*10^6 ;1G
  33. )="6"  or Left(TextToNum("0,."&TelOld)*10^6 ;1)="7"; Left(TextToNum("0,."&TelOld)*10^6 ; If(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;       H
  34.                Position(TelOld&"; "; "; "; 1))&1))-3))) < 8 or                                Left(TextToNum("0,."&TelOld)*10^6 ;1)="6";2 ;3));                     If(Left(TextToNum("0,."&TelOld)*10^6 ;4)="2907
  35. JJLcheckData
  36. "or Left(TextToNum("0,."&TelOld)*10^6 ;4)="2990"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="3450"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="3480"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4132"or Left(TextToNum("0,J
  37. ."&TelOld)*10^6 ;4)="4160"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4167"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4180"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4927"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4K
  38. 950"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4951"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="8360"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="8851"or Left(TextToNum("0,."&TelOld)*10^7 ;5)="42572"or Left(TextToNumL
  39. ("0,."&TelOld)*10^7 ;5)="42575"or Left(TextToNum("0,."&TelOld)*10^7 ;5)="42577"or Left(TextToNum("0,."&TelOld)*10^7 ;5)="42578"or Left(TextToNum("0,."&TelOld)*10^7 ;5)="42579"; Left(TextToNum("0,."&TelOld)*10^7
  40. JJLcheckData
  41.  ;5); If(Left(TextToNum("0,."&TelOld)*10^7 ;5)="42576"; Left(TextToNum("0,."&TelOld)*10^7 ;6); Left(TextToNum("0,."&TelOld)*10^6 ;4) ))))
  42. 0,.&C
  43. @."&TelOld)*10^7 ;5)="42579"; Left(TextToNum("0,."&TelOld)*10^7
  44. JJLcheckData
  45. JJLcheckData
  46. 42572
  47. 42575
  48. 42577
  49. JJLcheckData
  50. Id@ntL@belB
  51. TelNew#1B
  52. If(Position(TelOld;"O";1) 
  53.  1 and                               Position(TelOld;"O";1) < Position(TelOld & ";";";";1);"E: O/o  
  54.  0! F!"; If(Length(Int(TextToNum("0,."&TelOld&1)*                                 B
  55.   10^(Length(TextToNum("0,."&Left(TelOld;                  Position(TelOld&"; "; "; "; 1))&1))-2))) < 3 ;     Middle(TelOld;Position(TelOld & "; ";"; ";1)+2 ;99);                             If(Left(TextToNum("("0,."&TelOld&1)*                                 B
  56.   10^(Length(TextToNum("0,."&Left(TelOld;                  Position(TelOld&"; "; "; "; 1))&1))-2))) < 3 ;     Middle(TelOld;Position(TelOld & "; ";"; ";1)+2 ;99);                             If(Left(TextToNum("@
  57. 42575
  58. 42577
  59. JJLcheckData
  60. 1,."&TelOld)*1000 ;4) > 1090 and Left(TextToNum("1,."&TelOld)*1000 ;4) 
  61.  1099 ;       "00"&Right(TelOld; Length(TelOld)-2);               If((Position(TelOld;"+";1) 
  62.  0 and TextToNum("0,."&TelOld) =            D
  63. TextToNum("0,."&Right(TelOld; Length(TelOld)- Position(TelOld;"+";1)))) or (TextToNum("0,."&TelOld) < 1/100) or (Left(@#1;1)=1 and (Length(1&TextToNum(TelOld)) - Length(TextToNum("0,."&Middle(TelOld;Position(TeE
  64. lOld & "; ";"; ";1);32)&1)))=2); TelOld;                                                                   If(1 = 1 ;"";" Nu test op lookup fout") &                                              If(@#2 = 0 ;"E: F
  65. (0"&Left(@#1; If(Length(@#1) < 4 ;2 ;3))&") "& Middle(@#1;If(Length(@#1) < 4 ;3 ;4);10)&"?? / ? d >>>  F!";                                              If((Length(Int(TextToNum("0,."&TelOld&1)*                
  66. JJLcheckData
  67.                    10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) = 8  and  Left(@#2;1) = 1);                                                           "(0"& Middle (TextToNum("H
  68. 0,."&TelOld)*10^9 ;1 ;If(Length(@#1)=3 ;2 ;3)) & ") " & Middle (TextToNum("0,."&TelOld)*10^9 ;If(Length(@#1)=3 ;3 ;4);If(Length(@#1)=3 ;3 ;2)) & " " & Middle (TextToNum("0,."&TelOld)*10^9 ;6 ;2) & " " & Middle(I
  69. TextToNum("0,."&TelOld)*10^10 ;8 ;2) &  Middle(TelOld;Position(TelOld&"; ";"; ";1);32);                                                                                          If(1=1 ;"";"Now length check")  &J
  70.  If((Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) 
  71.  Middle(@#2 ;3 ;1) and Left (@#2 ;1) < 5) ;         
  72. JJLcheckData
  73.         "E: " & Abs(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) - Middle(@#2 ;3 ;1))& If((Length(Int(TL
  74. extToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) - Middle(@#2 ;3 ;1)) <0 ; "d <<<< F!";  "d >>>> F!");                 M
  75.                                                               If(Middle(Int(TextToNum("0,."&TelOld&1)* 10^(Length(TextToNum("0,."&TelOld&1))-2));                      (Middle(@#2 ;3 ;1)-Middle(@#2 ;2 ;1)+2);1) N
  76. = 0 and Left(@#2;1) < 5 ;                          "E: (0"&Left(Int(TextToNum("0,."&TelOld&1)* 10^(Length(TextToNum("0,."&TelOld&1))-2));                            Middle(@#2;3 ;1) - Middle(@#2;2 ;1) + 1)& ") 
  77. JJLcheckData
  78. 0  ?? F!";                                                                                             "(0"&TextToNum(Middle(@#2 ;4 ;3))&") "&                   If(Left(@#2;1) > 4 ; Left(Middle(TextToNum(MiddleP
  79. (TelOld; Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1)));If(Left(@#2;1) = 6 ;2 ;4);9);2) & If(Length(Middle(TextToNum(Middle(TelOld; Position(TelOld;Left(@#2;1);1Q
  80. ); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1)));If(Left(@#2;1) = 6 ;2 ;4);9)) >          2 ;" ";"")& Middle(Middle(TextToNum(Middle(TelOld;Position(TelOld;Left(@#2;1);1); Position(TelOld&"; "R
  81. ;"; ";1) - Position(TelOld;Left(@#2;1);1))); If(Left(@#2;1) = 6 ;2 ;4);9);3 ;2) & If(Length(Middle(TextToNum(Middle(TelOld; Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#
  82. JJLcheckData
  83. 2;1);1)));If(Left(@#2;1) = 6 ;2 ;4);9)) > 4 ;      " ";"")& Middle(Middle(TextToNum(Middle(TelOld;Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1))); If(Left(@#2;1) T
  84. = 6 ;2 ;4);9);5 ;2) & If(Length(Middle(TextToNum(Middle(TelOld; Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1)));If(Left(@#2;1) = 6 ;2 ;4);9)) > 6 ;      " ";"")& U
  85. Middle(Middle(TextToNum(Middle(TelOld;        Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1))); If(Left(@#2;1) = 6 ;2 ;4);9);7 ;2);                                V
  86.                           Middle(@#2;7 ;Right(@#2 ;1))&                                          If(Middle(@#2 ;2 ;1) > 4 ;Middle(TextToNum("0,."&TelOld&1);                                                    Le
  87. JJLcheckData
  88. ngth(TextToNum("0,."&Left(TelOld;Position(TelOld&"; ";"; ";1)) &1)) - Middle(@#2 ;2 ;1); Middle(@#2 ;2 ;1)-4)&" ";"")&                                              If(Middle(@#2 ;2 ;1)  > 3 ;Middle(TextToNum("0X
  89. ,."&TelOld&1);                                                    Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; ";"; ";1)) &1)) - 4 ;2); Middle(TextToNum("0,."&TelOld&1);                                Y
  90.                     Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; ";"; ";1)) &1)) - 3 ;1))&" "& Middle(TextToNum("0,."&TelOld&1);                                                    Length(TextToNum("0,.Zr"&Left(TelOld;Position(TelOld&"; ";"; ";1))& 1)) - 2 ;2))& Middle(TelOld;Position(TelOld&"; ";"; ";1);32) ))))))))
  91. ddle(TextToNum("0,."&TelOld&1);                                                    Le
  92. JJLcheckData
  93. E: O/o  
  94.  0! F!'
  95.  Nu test op lookup fout
  96. E: (0&
  97. ?? / ? d >>>  F!('
  98. JJLcheckData
  99. Now length check
  100. '    d <<<< F!'    d >>>> F!
  101. JJLcheckData
  102. Pro 1.0F!
  103. Pro 3.0
  104. JJLcheckData
  105. Id@ntL@belJ    Comment N
  106. !!!!!  Om geimporteerde of al bestaande gegevens
  107. om te zetten moet de cursor in TelOld gezet worden en
  108. Zoek opnieuw op uit het Wijzig Menu
  109. gedaan worden.  !!!!!!!
  110. TelNew#1M
  111. TelOld
  112. JJLcheckData
  113. A    Comment NB
  114. If(Position(TelOld;"O";1) 
  115.  1 and                               Position(TelOld;"O";1) < Position(TelOld & ";";";";1);                                   "E: Letter O/o  
  116.  cijfer 0! F!"; If(Length(Int(TextToNum(B
  117. "0$"&TelOld&1)*                                   10^(Length(TextToNum("0$"&Left(TelOld;                    Position(TelOld&"; "; "; "; 1))&1))-2)))  < 3 ; "Te weinig cijfers";                                                  10^(Length(TextToNum("0$"&Left(TelOld;                    Position(TelOld&"; "; "; "; 1))&1))-2)))  < 3 ; "Te weinig cijfers";                                  P
  118. JJLcheckData
  119.                                   If(Left(TextToNum("1$"&TelOld)*1000 ;4) > 1090 and Left(TextToNum("1$"&TelOld)*1000 ;4)
  120. 1099 ;"Oud intern. omgz.";                                                   If((PositioD
  121. n(TelOld;"+";1) 
  122.  0 and TextToNum("0$"&TelOld) =            TextToNum("0$"&                                                                      Right(TelOld; Length(TelOld)- Position(TelOld;"+";1))))          E
  123.                                                                       or (TextToNum("0$"&TelOld) < 1/100) ; "OK: Internationaal";                                                           If(Left(@#1;1)=1 and (F
  124. Length(1&TextToNum(TelOld)) - Length(TextToNum("0$"&                               Middle(TelOld;Position(TelOld & "; ";"; ";1);32)&1)))=2 ;                          "OK: Nieuw Euro nr";                        
  125. JJLcheckData
  126.                                                      If(1 = 1 ;"";" Nu test op lookup fout") &                                              If(@#2 = 0 ;"Net+Abo bestaat niet of te kort nieuw nr";               H
  127.                                If((Length(Int(TextToNum("0$"&TelOld&1)*                                   10^(Length(TextToNum("0$"&Left(TelOld;                     Position(TelOld&"; "; "; "; 1))&1))-3))) = 8 I
  128.  and  Left(@#2;1) = 1 );                                              "OK: Nieuw nr";                                                                                          If(1=1 ;"";"Now length check")  & IJ
  129. f((Length(Int(TextToNum("0$"&TelOld&1)*                                   10^(Length(TextToNum("0$"&Left(TelOld;                      Position(TelOld&"; "; "; "; 1))&1))-3))) 
  130.  Middle(@#2 ;3 ;1) and Left(@#2 ;1
  131. JJLcheckData
  132. ) < 5)  and (Length(Int(TextToNum("0$"&TelOld&1)*                                   10^(Length(TextToNum("0$"&Left(TelOld;                    Position(TelOld&"; "; "; "; 1))&1))-3))) 
  133.  8 or Left(@#2;1) 
  134.  1) ;  L
  135.                                                                             Abs(Length(Int(TextToNum("0$"&TelOld&1)*                                   10^(Length(TextToNum("0$"&Left(TelOld;                PositM
  136. ion(TelOld&"; "; "; "; 1))&1))-3))) - Middle(@#2 ;3 ;1))&             " cijfer(s) te" & If(Length(Int(TextToNum("0$"&TelOld&1)*                                   10^(Length(TextToNum("0$"&Left(TelOld;          N
  137.         Position(TelOld&"; "; "; "; 1))&1))-3))) - Middle(@#2 ;3 ;1) <0 ;           " kort";  " lang");                                                                               If(Middle(Int(TextToNum("0$"
  138. JJLcheckData
  139. &TelOld&1)* 10^(Length(TextToNum("0$"&TelOld&1))-2));                      (Middle(@#2 ;3 ;1)-Middle(@#2 ;2 ;1)+2);1) = 0 and               Left(@#2;1) < 5 ;"Abo nr begint met een 0";  "OK: " &                 P
  140.                If(Left(@#2;1) > 4 ;If(Left (@#2 ;1) = 6 ;"06 nr";"")&               If(Left(@#2 ;1) = 8 ;"Nieuw Euro nr gratis";"")&               If(Left(@#2 ;1) = 9 ;"Nieuw Euro nr betaald";"");              Q
  141.    If(Left(@#2 ;1) 
  142.  1 ;"Oud nr omgezet";"")&                                                                If(Left(@#2 ;1) = 2 ;"Nieuw nr";"")&                                           If(Left(@#2 ;1) = 3 ;"R"Oud nr is nieuw nr";"")) )))))))))
  143. E: Letter O/o  
  144.  cijfer 0! F!'
  145. Te weinig cijfers'
  146. JJLcheckData
  147. A    JJL/ShareB
  148. Users
  149. A    JJL/ShareB
  150. Users
  151. A    JJL/ShareB
  152. Users
  153. A    JJL/ShareB
  154. Users
  155.     {I0_*n
  156. A    JJL/ShareB
  157. Users
  158. Te weinig cijfers'
  159. JJLcheckData
  160. Enkel
  161. EnkelB
  162. Nieuw Euro nr betaald'
  163. Oud nr omgezet'
  164. Nieuw nr'
  165. Oud nr is nieuw nr'
  166. Enkel
  167. EnkelB
  168. TelNew#1M
  169. TelOld
  170. TelOld
  171. TelNew#1
  172. !!!!!  Om geimporteerde of al bestaande gegevens
  173. om te zetten moet de cursor in TelOld gezet worden en
  174. Zoek opnieuw op uit het Wijzig Menu
  175. gedaan worden.  !!!!!!!
  176. l    {I0_*n
  177. L    [i0
  178. l    {I0_*n
  179. A    JJL/ShareB
  180. Users
  181.     Helvetica
  182. Monaco
  183. Chicago
  184. New Century Schlbk
  185. Geneva
  186. Courier
  187. Times
  188. Zapf Chancery
  189. FPTHA
  190. JJLcheckData
  191. MSPCA
  192. NAMEA
  193. JJLcheckData
  194. FMRLA
  195. JJLcheckData
  196. eckData
  197. l    {I0_*n
  198. L    [i0
  199. l    {I0_*n
  200. A    JJL/ShareB
  201. Users
  202. 30-12-1995
  203.     COMMENT N
  204. ID@NTL@BEL
  205. TELNEW#1
  206. TELOLD
  207. TelOldB
  208.